/* isNum.asm
 * Tests whether its argument is number
 *
 * 
 */

 IS_INT:
  PUSH(FP);
  MOV(FP, SP);

  MOV(R0, FPARG(2));
  CMP(IND(R0), IMM(T_INTEGER));
  JUMP_EQ(L_IS_INT_T);
  MOV(R0, IMM(3));
  POP(FP);
  RETURN;
  
 L_IS_INT_T:
  MOV(R0, IMM(5));
  
  POP(FP);
  RETURN;
